(vc-mcvs-revert): Fix call to vc-default-revert.

diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el
index b52bc797dda7541100b3313ebcf9aed9e45ae913..4394dd510f5daa31c9e6bd2b3b851bae8d83b323 100644 (file)
--- a/lisp/vc-mcvs.el
+++ b/lisp/vc-mcvs.el
@@ -350,7 +350,7 @@ This is only possible if Meta-CVS is responsible for FILE's directory.")
 
 (defun vc-mcvs-revert (file &optional contents-done)
   "Revert FILE to the version it was based on."
-  (vc-default-revert file contents-done)
+  (vc-default-revert 'MCVS file contents-done)
   (unless (eq (vc-checkout-model file) 'implicit)
     (if vc-mcvs-use-edit
         (vc-mcvs-command nil 0 file "unedit")